home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / text / edit / EdgeTexScripts.lha / autotex.edge next >
Encoding:
Text File  |  1994-09-20  |  2.6 KB  |  108 lines
  1. /*AutoTeX it*/
  2. options results
  3. save
  4. if rc == 0 then do
  5.    files = result
  6.    addressof fullname files
  7.    texaddr=result
  8.    texfile=files
  9.    nam = upper(right(files,4))
  10.    name = files
  11.    if compare(nam,'.TEX') == 0 then name = left(files,length(files)-4)
  12.    getenvvar _WE_Line
  13.    line=result
  14.    getenvvar _WE_Column
  15.    col=result
  16.    position sof
  17.    markblock
  18.    cursor down 1
  19.    copy resultbuff
  20.    text=result
  21.    gotoline line+1
  22.    gotocolumn col+1
  23.    format='&amsplain'
  24.    if left(text,1)=='%' then do
  25.          if ~(index(text,'plain')==0) then format='&plain'
  26.          if ~(index(text,'lplain')==0) then format='&lplain'
  27.          if ~(index(text,'amsplain')==0) then format='&amsplain'
  28.          if ~(index(text,'amslplain')==0) then format='&amslplain'
  29.       end
  30.    address command 'TeX:bin/virtex' format name
  31.    if ~(index(name,'/')==0) then do
  32.          getenvvar _FE_Name
  33.          na=result
  34.          n=na
  35.          if compare(nam,'.TEX') == 0 then n=left(na,length(na)-4)
  36.          logf=n||'.log'
  37.          getenvvar _FE_Path
  38.          logpath=result
  39.          logfi=logpath||logf
  40.       end
  41.    else do
  42.       n=name
  43.       logf=n||'.log'
  44.       logfi=logf
  45.       end
  46.    dvi=n
  47.    addressof fullname logfi
  48.    if rc==0 then do
  49.         activatewindow port result
  50.         address VALUE result
  51.         open force """"logf""""
  52.         end
  53.    else do
  54.             new
  55.            address value result
  56.            open logfi
  57.            addressof fullname logfi
  58.            activatewindow port result
  59.            address VALUE result
  60.    end
  61.    position sof
  62.    putenvvar _FE_FindString l.
  63.    text=''
  64.    joe=0
  65.    do while joe==0
  66.       findnext
  67.       if ~(rc==0) then do
  68.          close force forceok
  69.          address command delete """"logf""""
  70.          address command 'TeX:bin/showdvi' dvi
  71.          address command delete showdvi.log
  72.          joe=1
  73.         end
  74.       else do
  75.          res=result
  76.          i=index(res,' ')
  77.          re=right(res,length(res)-i)
  78.          j=index(re,' ')
  79.          r=left(re,j-1)
  80.          if ~(r==0) then do
  81.             position sol
  82.             markblock
  83.             position eol
  84.             cut resultbuff
  85.             text=result
  86.            end
  87.          else do
  88.              window front
  89.              changewindow leftedge 0 topedge 233 width 668 height 230
  90.             requestnotify title ERROR string 'Compile Failed.  See log.'
  91.              markblock
  92.              position eol
  93.              copy resultbuff
  94.              text=result
  95.             te=right(text,length(text)-2)
  96.              i=index(te,' ')
  97.              li=left(te,i-1)
  98.             addressof fullname files
  99.             activatewindow port result
  100.             address value result
  101.             changewindow leftedge 0 topedge 13 width 668 height 220
  102.              gotoline li
  103.                joe=2
  104.          end
  105.       end
  106.    end
  107. end
  108.